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"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 



ZGRASS V2.OOOOOOOO 
©BY JAY FENTON, MOLA DONATO, AND TOM DEFANTI 
© (C> 1978 


©/ 


„ INSERT A s ZRAMASM 
.LINK 

„IDENT SPUN 
. PREL 

n T 

5 INTERNALS 

tt 

1 

.INTERIM FIND 
.INTERN LPAD 
.INTERN SUBSTR 
5 T 

3 EXTERNALS 

n 

.EXTERN ALSTS 
.EXTERN ARG 
.EXTERN DTV16 
.EXTERN ENDSTR 
.EXTERN ERRPGM 
.EXTERN GETOPND 
.EXTERN INC3IY 
.EXTERN RETNONE 
.EXTERN SFREE 

5 ++++ 


5 FIND STRING 
3PAD ON LEFT 
5 SUBSTRING 


5 ALLOCATE STRING 
3 ARGUMENT PARSER 
,“ DIVIDE HL BY 16 
3 CLEAN UP FOR STRING 
5 ERRORS 
5 GET OPERAND 
3 BUMP IY TO NEXT ARG 
3 RETURN POINT 
3 FREE STRING 


LPAD 

PAD STRING ON THE LEFT WITH GIVEN CHARACTER SO IT FITS 
IN A SPECIFIED FIELD 
SYNTAXs 

LPAD <STRING>,<CHAR>,<FIELD> 

CSTRING> - STRING TO PAD 
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5 <CHAR> - STRING WHOSE FIRST CHARACTER WILL BE USED A 

o, 

3 THE PAD CHARACTER 

5 <FIELD> - INTEGER GIVING THE LENGTH DESIRED FOR THE 
FIELD 

7 

3 RETURNSs 

3 STRING RETURNED WILL BE <FIELD> CHARACTERS LONG. IF 
ORIGINAL 

5 <STRING> WAS TOO SHORT, IT IS PADDED ON THE LEFT WIT 
H THE FIRST 

5 CHARACTER OF THE STRING <CHAR> UNTIL IT FITS IN THE 
FIELD 

3 IF IT WAS TOO LONG, IT IS TRUNCATED ON THE LEFT 

V 

5 CALLSs 

5 ARG - ARGUMENT PARSER 

3 GETSTO - GET STRING OPERAND 
3 CHKINT - GET INTEGER OPERAND 
3 SLEN - STRING LENGTH FINDER 
3 SFREE - FREE STRING 

3 DIV16 - DIVIDE BY 16 

? ALSTS - ALLOCATE STRING 

5 ENDSTR - CLEAN UP STRING 


* , - 



M.CMDCLPAD,..LPX,0,AFLX 

CL3,».LPARG,..LPADHE 

0000"' 

18 

+LPADS .BYTE HCMDADR 


0001 

07 

4 

„BYTE (..LPX-LPAD)/16+1 


0002"' 

00 

4- 

.BYTE 0 


0003"' 

639C 

4 

. WORD AFIXCL1C ( "L"-101Q) *16+FSTIIMT3 

0005"' 

OOOE"' 

4 

.WORD „„LPAD 


0007 

0011 " 

4 

.WORD ..LPARG 


0009 "' 

4C50414400 

4 

.ASCIZ /LPAD/ 




4] 



OOOE"' 

CD 0000“05 


„LPAD s CALL ARG 


0011" 

08080400 

» 

.LPARG a.BYTE $8TRADR,TSTRADR 

, $1VAL,$TAF 

0015 •" 

E5 

n 

PUSH H 




7 

7 

4 

THE FIRST ARGUMENT IS THE STR 

ING TO PAD 



7 

a 

IT MUST BE NON-NULL OR IT IS 

AN ERROR 

0016"' 

CD 006E-" 

7 

CALL GETSTO 

3 GET 1ST STRING 

0019"' 

E5 


PUSH H 

3 HL—>TOP OF STRING 

001 A"' 

D5 


PUSH D 

3 DE->1ST CHAR OF STRING 

00 IB" 

CD 0095" 


CALL SLEN 

?B=LENGTH OF STRING 



7 

M 

7 

SP -> TOP OF SOURCE 




N 

7 

1ST CHAR OF SOURCE 




u 

7 

B =?' LENGTH OF SOURCE 




7. 

THE SECOND OPERAND IS THE PAD 

CHARACTER. ONLY 



.7 

THE FIRST CHARACTER IS USED. 

AN ATTEMPT IS MADE 


TO GARBAGE COLLECT THE PAD STRING 


001 IE CD 006E 


GETSTO 5 GET PAD STRING 


CALL 
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0021" . 1A LDAX D "A = PAD CHAR 

0022-' 4F MOV C,A 3 C = PAD CHARACTER 

0023 x CD 0000 sOC CALL SFREE 5 FREE IT 

3 + 

; SBo-> TOP OF SOURCE 
5 1ST CHAR OF SOURCE 

3 B = LENGTH OF SOURCE 
3 C = PAD CHARACTER 

5 THE LAST OPERAND IS AN INTEGER GIVING THE SIZE OF 
3 THE FIELD NEEDED. IF THE STRING TO BE PADDED HAS 
3 FEWER CHARS THAN THE FIELD LENGTH, IT IS PADDED 
5 ON THE LEFT WITH THE PAD CHARACTER. IF IT HAS MORE 
3 IT IS TRUNCATED ON THE LEFT TO FIT IN THE FIELD 


0026 *" 

CD 0083" 

» — 

CALL 

CHKINT 

3GET FIELD LENGTH 

0029 r 

7 Ei 


MOV 

A, E 

3 GET IN A 

002A •" 

El 


POP 

H 

5 HL—>1ST SOURCE CHAR 

002B-" 

90 


SUB 

Ef 

SA=# TO PAD 

002C 

FA 0038" 


JM 

. .LI 

SCO? MUST TRUNCATE 

002F 

2016 


.JRNZ 

. « L5 

3 >0? MUST PAD 



? *T* 

5 SP -> 

TOP OF 

SOURCE 




3 THE S 

TRING IS 

; EXACTLY THE 

FIELD LENGTH. NOTHING 



3 NEED 

It _ 

BE DONE 

TO IT, IT IS 

RETURNED ASIS 

0031T 

01 

7 

..LEX : 

POP 

D 


0032 

3E08 

..EXITS 

MV I 

A,4STRADR 

3 TYPE STRING 

0034 > 

El 


POP 

H 

5 RESTORE ARG PTR 

0035 

C3 0000 SOB 


JMP 

RETNONE 



3 + 

3 SP -> TOP OF SOURCE 
5 1ST CHAR OF SOURCE 

3 A = # OF CHARS TO TRUNCATE 

3 THE STRING MUST BE TRUNCATED ON THE LEFT, IT IS 
5 TOO SMALL TO FIT IN THE FIELD. THE POINTER 
3 <HL> IS ADVANCED TO THE FIRST CHAR TO GO IN 
5 THE FIELD AND THEN ALL CHARACTERS ARE MOVED 
5 OVER (SHUFFLED) 


0038*“ 

E5 

..Lis 

PUSH 

H 

3 SAVE CHAR PTR 

0039" 


„ . L2s 

I NX 

H 

5 SKIP CHARS TO 

003ft *" 

3C 


I NR 

A 

3 TRUNCATE STRING 

003B" 

20FC 


JRNZ 

n . L -il". 


003D " 

D1 


POP 

D 

3DE->1ST CHAR POS 

003E 

7E 

. . L3s 

MOV 

A, M 

3 GET NEXT CHAR 

003F -* 

1 


STAX 

D 

3 SAVE IN STRING 

0040 *" 

*">;“** 


I NX 

H 

5 BUMP PTRS 

0041 *" 

13 


I NX 

D 





TST 

A 

5 UNTIL NULLC 

0042:' 

B7 

+ 

ORA 

All 


0043*" 

20 F 9 


•JRNZ 

. vL3 


0045*" 

1 SEA 


.JMPR 

. .LEX 



5 + 

5 THE STRING MUST BE PADDED ON THE LEFT WITH THE 
3 PAD CHARACTER. A NEW STRING IS CREATED LARGE 
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? ENOUGH TO HOLD THE NUMBER OF CHARACTERS IN THE 
S FIELD 


0047 

47 


. . L5s 

MOV 

B, A 

5 SAVE # TO PAD 

0048" 

E5 



PUSH 

H 

3 HL~>1ST CHAR 

0049" 

C5 



PUSH 

B 


004A •" 

21 

OOOB 


LX I 

H,$SASCI1+1 

SHEADER PLUS NULL 

004D 

19 



DAD 

D 

? HL=# OF CHARS 

004E 

CD 

0000s06 


CALL 

DIV16 

5 GET # BLOCKS 

0051" 

CD 

0000 s 04 

u _> 

CALI- 

ALSTS 

5 ALLOCATE STRING 




V T 

s SP -> 

TOP OF 

SOURCE 



S PAD LENGTH, PAD CHAR 

? 1ST CHAR OF SOURCE 

5 DE -> 1ST CHAR OF NEW STRING 

5 STRING IS CREATED, IT IS PADDED ON THE LEFT WITH 
5 THE APPROPRIATE NUMBER OF PAD CHARACTERS 
5 DE -> 1ST BYTE OF NEW STRING 


0054"' 

Cl 

POP 

B 

5 B=PAD MUM,C=PAD 

CHAR 

0055 •' 

E3 

XTHL 


5HL->1ST CHAR OF 

SOURCE 

0056" 

79 

MOV 

A, U 

“A = PAD CHAR 


0057" 

12 

. L6s STAX 

D 

? PAD ONE 


0058"' 

13 

INX 

D 

5 BUMP PTR 


0059"' 

05 

DCR 

B 

5 FOR B. CHARS 


005A"' 

20FB 

•JRNZ 

„ . L6 




5 + 

! HI. -> 1ST CHAR IN SOURCE STRING 




? DE -> NEXT BYTE IN DE 

STINATION 



; THE REST OF 

THE OLD S 

TRING IS COPIED OVER UNTIL 



5 THE NULL AND 

u 

THE OLD 

STRING IS GARBAGE COLLECTED 

005C '" 

7E 

7 

„» L7 s MOV 

A, M 

? COPY A CHAR 

005D •" 

12 

STAX 

D 


005E" 


INX 

H 

5 BUMP PTRS 

005F" 

13 

INX 

D 




TST 

A 

5 IS NULL2G 

0060"' 

B7 

+ ORA 

All 


0061" 

20F9 

JRNZ 

. „ L'7 

? EXIT 

0063 - " 

IB 

DCX 

D 

5 AFTER NULL 

0064 " 

El 

POP 

H 

5 HL->tOP OF NEW 

0065 •" 

CD 0000"07 

CALL 

ENDSTR 

5 CLEAN UP 

0068" 

El 

POP 

H 

SFREE OLD STRING 

0069" 

CD 0000sOC 

CALL 

SFREE 


006C •" 

13C4 

JMPR 

« .EXIT 

SAND EXIT 

006E •" 


„ „LPXs 





5 ++++ 





I GETSTO 





“ GET STRING OPERAND, FIND 1ST CHARACTER, ERROR IF 


S NEEDSs 

5 IY~> POSSIBLE STRING OPERAND 


RETURNS 
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? IY -> NEXT 

OPERAND 





5 HL -> TOP 

OF STRING 





; DE -> 1ST 

M 

CHAR 





7 

? ERRORS“ 






? ER.NULS - 

ERROR IF NULL 





7 

5 CALLSs 






5 GETOPND - 

■ GET THE OPERAND 





? INC5IY - 

U 

BUMP IY TO NEXT OPERAND 

006E **’ 

CD 

0000 s 09 

7 • • 

GETSTOs CALL 

GETOPND 

5 GET STRING 




TSTD 

D 

3 IS NULL?C 

0071 **’ 

7A 


+ MOV 

A»D 


0072'' 

B3 


+ ORA 

D 

+ 13 




Z ERROR ER.NULS 

5 YES? ERROR C 

0073' 

2004 

+ JRNZ 

..0001 


0075 

CD 

0000s08 

+ CALL 

ERRPGM 


0078' 

39 


+ .BYTE 

; ER.NULS 


0079'' 



+ ».000is 3 



0079 

D5 


PUSH 

D 

? SAVE TOP PTR 

007A" 

21 

000A 

LX I 

H,$SASCII 

;HL=OFFSET OF 1ST 

007D“ 

19 


DAD 

D 

? HL~>1ST CHAR 

007E" 

EB 


XCHG 


?HL—>TOP,DE—>1ST CHAR 

007F 

El 


POP 

H 


0080' 

C3 

0000sOA 

JMP 

INC5IY 

?IY—>NEXT ARG 










7 

? CHKINT 






5 GET INTEGER 

OPERAND, ERROR I 

F NEGATIVE, CHECK IF ZERO 




7 

S NEEDSs 






5 IY -> NEXT OPERAND 





7 

5 RETURNSs 






? DE = INTEGER OPERAND (NON- 

NEGATIVE) 




5 IY ~> AFTER INTEGER OPERAND 




? Z BIT SET 

n 

IF DE=0, ELSE CL 

EAR 




7 

? ERRORSs 






? ER.NEG - 

a 

NEGATIVE ARGUMENT 

NOT ALLOWED HERE 




7 

; CALLSs 






5 GETOPND - 

GET OPERAND 





? INC5IY -• 

n 

POINT AT NEXT OPERAND 

0083 •" 

CD 

0000“09 

■ , 7 

CHKINTs CALL 

GETOPND 

? D£=OPERAND 

0086 

CD 

0000 s OA 

CALL 

INC5IY 

5NEXT one 




TST 

D 

5 IS IT NEGATIVE?!; 

0089 

7A 


■ +. IFM D 

-A, e; MOV 

A,D 3 

008A 

B7 


+ ORA 

All 


008B •" 

FA 

0091 •" 

JM 

. . ERR 

? YES? ERROR 




TSTD 

D 

5 IS IT ZERO?!! 
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008E' 7A + MOV A, D 

008F' B3 + ORA D +13 

0090' C9 RET 

0091' --ERRS ERROR ER-NEG 5NEGATIVE ARGE 

0091' CD 0000s08 + CALL ERRPGM 

0094' 3A + -BYTE ER-NEG 

+ 3 

* ««|m m|m m|«# 

It 

3 SLEN 

3 FIND LENGTH OF STRING 
5 NEEDSs 

3 DE -> 1ST CHAR OF STRING 
3 RETURNSs 

3 DE -> AFTER NULL 

B = # OF CHAR IN STRING (NOT INCLUDING NULL) 


0095 •*’ 


SI-ENs 

CLR 

B 

30 CHARSC 

0095 

0600 

+.IFN B 


-A, C MVI 

B , 0 3 E 



XRA 

A3 3 



0097 ** 

1A 

Cl « 

M «« ■«.' 4. ** 

LDAX 

D 

3 GET A CHAR 




TST 

A 

3 IS NULL? E 

0098 

B7 

4* 

ORA 

A3 


0099/ 

C8 


RZ 


3 RETURN THEN 

009A •** 

13 


I NX 

D 

5 BUMP PTR 

009B*“ 

04 


I NR 

B 

3 AND COUNTER 

009C ** 

F2 0097' 


UP 

- SI 

5UNTIL OVERFLOW 




ERROR 

ER-OFLO 

3 STRING TOO LONG!! 

009F *“ 

CD 0000s08 

4 - 

CALL 

ERRPGM 


00 A2 •** 

.1.7 

4 * 

- BYTE 

ER.OFLO 




-KI 





3 +++•+ 

w 

T • • 

3 SUBSTR 

5 FINDS THE SPECIFIED SUBSTRING 

7 

3 SYNTAXs 

3 SUBSTR STRING,START,LEN 

3 <STRING> - STRING TO TAKE SUBSTRING OUT OF 
5 <START> - INTEGER SPECIFYING THE CHARACTER TO START 

3 THE SUBSTRING AT (.0 BASED) 

3 <LEN> - NUMBER OF CHARACTERS IN SUBSTRING 

3 RETURNSs 

3 SUBSTRING STARTING AT THE SPECIFIED CHARACTER WHICH 

IS ..T-. - 'T; T; ; :T ‘ 

<LEN> CHARACTERS LONG 

7 

3 CALLS5 

3 GETSTO - GET STRING OPERAND 
3 CHKINT - GET INTEGER OPERAND 
SFREE - FREE STRING 
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ALSTS - ALLOCATE STRING 
ENDSTR ~ CLEAN UP AFTER STRING 


00A3 •" 

18 

+SUBSTR « 

M. CMD C SUBSTR, . . SB X, 0, AFIX C S3 ■> . . SARG, . . SUB 3II 
. BYTE 9CMDADR 

00 A 4 

06 

4* 

.BYTE (..SBX-SUBSTR)/16+1 

00A5 

00 

4* 

.BYTE 0 

00A6" 

640C 

4* 

. WORD AF IX C S 3 L C '• S " -101Q) * 16+FSTI NT 3 

00 AS"' 

00B3 •" 

4* 

. WORD . SUB 

00 A A •" 

00B6 

4* 

.WORD ..SARG 

OOAC -' 

53554253545 

2'4- 

.ASCIZ /SUBSTR/ 

00B3"' 

CD 0000s05 

+ 3 

„.SUBS 

CALL ARG 

00B6 

08040400 

..SARQ- 

$ GET S 

u ^ 

BYTE $STRADR, *1VAL, *1VAL, $TAF 

OOBA-' 

CD 006E"' 

OURCE OPERAND AND SAVE POINTERS 

CALL GETSTO 5 GET SOURCE 

OOBD •" 

E5 


PUSH H 3HL—>TOP OF STRING- 

OOBE 

D5 


PUSH D ?DE->1ST CHAR 


3 + 

5 GET. FIRST CHARACTER INDEX AND SKIP TO THAT CHARACTER 
5 IN THE SOURCE STRING 


OOBF*’* 

CD 0083-' 

7 . 

CALL 

CHKINT 

5 GET 1ST CHAR OFFSET 

00 C 2 

El 


POP 

H 

3HL—>1ST CHAR OF SOURCE 

0QC3 **’ 

280A 

. .SIs 

JRZ 

. . Si! 

3 YES? GO ON 

00C5 

7E 

+ .IFN M 

1 ST 

M 

-A, C MOV 

3 RAN OUT OF CHARS?[ 

A,M 3 

00 C 6 *“ 

B7 

+ 

ORA 

A3 


00C7 

282F 


JRZ 

..NULL 

3 RETURN NULL STRING 

00C9*’* 

.*£. O ' 


I MX 

H 

5 SKIP ONE MORE 

OOCA *'* 

IB 


DCX 

D 

3 DEC COUNTER 

OOCB*“ 

7 A 

+ 

TSTD 

MOV 

D 

A v Ef 

3 CHECK IF 01 

OOCC 

B3 


ORA 

D 

+ 13 

00 CD 

18F4 


JMPR 

. .SI 



§ 4 * 

3 ALLOCATE ENOUGH MEMORY FOR THE SUBSTRING 
? THE CHARACTER COUNT MUST BE CONVERTED TO A STRING BLOC 


K 

3 COUNT AND USED FOR ALSTS 




3 IF THE LENGTH 

IS 0, IT MEANS 

THE REST OF THE SOURCE 

OOCF-' 

CD 0083 '' 

7 

u ii "D .ii ** U A L. L. 

CHKINT 

5 GET SUBSTR LENGTH 

00D2 

E5 

PUSH 

H 

5 SAVE STRING PTR 

00D3 -' 

D5 

PUSH 

D 

3 SAVE SUBSTR LEN 

00D4 •- 

oppp 

MV I 

A,-l 

3 IN CASE DE=0 

00D6" 

2308 

JRZ 

QO . ' 

m u 

30? UNKNOWN SIZE 

GODS'" 

21 OOOB 

LX I 

H,$SASCII +1 

5 HEADER AND NULL 

OODB " 

19 

DAD 

D 

5 HL=BYTE SIZE 

OODC ■- 

CD 0000306 

CALL 

DIV16 

3 HL.=BLOCK SIZE 

OODF -' 

7D 

MOV 

A 7 L 

5A=BL0CK SIZE 

OOEO-' 

CD 0000s04 

« *i » CALL 

ALSTS 

3 ALLOCATE IT 
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00E3'' 

Cl 


POP 

B 

5 BC=LENGTH 

00E4 " 

E3 


XTHL 


SSAVE TOP PTR 



y *1" 

5 THE S 

;OIJRCE S 

TRIIMG IS COPIED 

INTO THE NEW DESTINATION 



5 STRING UNTIL 

WE RUN OUT OF 

CHARS OR UNTIL BC=0 



? THEN 

N ’ . 

WE CLEAN UP AND EXIT 


00E5 ** 


V 

. .S4s 

TST 

M 

5 SOURCE CHAR NULL? II 

GOES' 

7E 

+»IFN M 


-A, C MOV 

A,M I 

GOES" 

B7 

+ 

ORA 

Al 


00E7"' 

2805 


•JRZ 

» „35 

? ALL DUN 

GGE9 ' 

EDAO 


LDI 


5 COPY A CHAR 

GGEB-" 

EA GOES’" 


JPE 

„ , S4 

3 GO AGAIN 

OGEE' 

El 

» « ■_* •«.*» 

POP 

H 

5 HL—>TOP OF SUBSTR 

OOEF •" 

CD 0000s07 


CALL 

ENDSTR 

5 CLEAN UP 

00F2" 

El 


POP 

H 

5 HL—>TOP OF SOURCE 

OOFS’" 

CD 0000sOC 


UALL 

SFREE 

5FREE IF NEED BE 

OOF6 " 

1804 

» .L. 

JMPR 

„ „ EX 




■3 r* 

5 COME 

HERE WHEN SUBSTRING IS 

NULL 

OOFS”' 

Di¬ 

„„NULLS 

POP 

D 

5 DE—>SOURCE 

00F9 

ll 0000 


LX I 

D i 0 

3 RETURN NULL 

OOFC ’" 

3E08 

» . E X s 

MO I 

A j $STRADR 

3RETURN TYPE STRING 

OOFE" 
0101 ’" 

CS 0000 s OB 

«« SBX s 

JMP 

RETNONE 


0101 ’" 

C9 

FINDS 
■ END 

RET 
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AASN 

005F 


AL3T8 

0000s 04 

X 

ARG 

0000s05 

X 

ARGSTK 

60CC 

BACKOR 

65CC 


BLANK 

0020 


BOTRAM 

6000 


BOTTOM 

64A9 

CHARSL 

65DD 


CHKINT 

0083**' 


CLEARS 

60 C A 


CNTRL 

oooc 

CNTRLC 

65GD 


CNTRLO 

65D9 


CNTRLU 

0015 


CNTRLZ 

65E4 

CPLARE 

6110 


CPLSIZ 

0140 


CR 

GOOD 


CSBLOK 

668D 

CSFLAG 

6260 


CURCX 

6814 


GURCY 

6816 


CURREN 

64A5 

C. CO 

0011 


C.C1 

0012 


C.CX 

OOOB 


C.CY 

GOOD 

C«DP 

0013 


C.ST 

0002 


c.x 

0003 


C. XF 

OOOF 

C. XS 

0007 


C.Y 

0005 


C.YF 

0010 


C. YS 

0009 

DDTON 

65CE 


DEVBL 

6589 


DEVCLO 

6579 


DEVCL1 

657B 

DEVCL2 

657D 


DEVCL3 

657F 


DEVCL4 

6581 


DEVCL5 

6583 

DEVCL6 

6585 


DEVCL7 

6587 


DEVFB 

65CB 


DEVHCB 

658F 

DEVMO 

658B 


DEVNM 

65B7 


DEV.NT 

658D 


DEVTNA 

65BB 

DEVTNB 

65BF 


DEVTNC 

65C3 


DEVVA 

65BD 


DEWAR 

6579 

DEVVB 

65C1 


DEVVBL 

6591 


DEVVC 

6505 


DEWD 

65C9 

DEVVM 

65B9 


DEWS 

65C7 


DEVXCD 

65B3 


DEVYCD 

65B5 

DIV16 

0000 s 06 

X 

DOLPLH 

6-2E8 


DOLPPT 

62EA 


DUMBST 

6577 

EDBCNT 

64AD 


EDCCNT 

64A7 


EDLONG 

6812 


EDMODE 

681C 

EDNAME 

64 A1 


EDNCX 

680C 


EDNCY 

680E 


EDNEWS 

64A5 

EDOCX 

6808 


EDOCY 

680.A 


EDPN 

6806 


EDPO 

6804 

EDPTRC 

64AB 


EDPTRL 

64A9 


EDSTR 

681A 


ENDSTR 

0000 

ERABIT 

0002 


ERRPGM 

0000s08 

X 

ER.ARA 

002F 


ER.ARG 

0034 

ER.ASN 

0015 


ER.BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 

ER.CNV 

0016 


ER.COR 

00 IB 


ER.CTL 

0036 


ER.DEL 

0026 

ER.DIM 

0030 


ER.DIV 

0018 


ER. DP 

0037 


ER.DSK 

0019 

ER.EDT 

0035 


ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 

ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 

ER.NAM 

0029 


ER.NEG 

003A 


ER.NOT 

0023 


ER.NUL 

0039 

ER.NUM 

002B 


ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPN 

0014 

ER.OVE 

001E 


ER.PAR 

002A 


ER.REN 

002C 


ER.RET 

0024 

ER.SEP 

0021 


ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 

ER. SW 

0032 


ER.TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 

EXTDEL 

002E 


E.HVAL 

0002 


E.LVAL 

0001 


E. SIZ 

0005 

E.TYP 

0000 


E. VAL. 

0001 


FCNTH 

65D2 


FCNTI 

65D3 

FONT J 

65D4 


FCNTK 

65D5 


FCiMTL 

65D6 


FCNTV 

65E0 

FCIMTY 

65E3 


FIND 

0101" 

I 

FIRST 

64A3 


FLAGS 

65 CB 

FOREGR 

65D0 


FRAGSI 

0400 


FREELS 

65E5 


FSTDOL 

648L* 

FSTINT 

62EC 


FWDPTR 

65E7 


GETOPN 

0000s09 

X 

GETSTO 

006E 

HCAREA 

6593 


INC5IY 

0000sOA 

X 

INCRO 

65E9 


JUNK 

6542 

KBLOCK 

65F1 


KEYFLG 

6-7FF 


KEYPTK 

6533 


KEYTRK 

67F7 

LF 

OOOA 


LISTON 

65E2 


LPAD 

0000 

I 

MACSTU 

6536 

MACTOP 

625E 


MAXFRG 

0040 


MNMX 

65EB 


MBLKB 

0000 

NBLKM 

0001 


NEWBOT 

6810 


NL 

OOOA 


NSADDR 

6802 

NUMBUF 

64A3 


OLDCHR 

64A0 


GLDCUR 

649F 


OLDKEY 

649D 

OLDXY 

65EF 


ONEBUF 

6729 


OPRL 

0014 


OPRSP 

655B 

OPRSTK 

6547 


OPRSZ 

655D 


OUTOFF 

62E7 


0.CHAR 

0000 

O.PREC 

0002 


O.SIZ 

0006 


U. bU B 

0004 


O.TYP 

0003 

PONT 

655E 


PI XVAL 

65ED 


POINT E v 

64A7 


PONOFF- 

65DA 

PRINTR 

6540 


RAMEND 

7FFF 


RAMSTR 

6900 


RANSHT 

655F 

RETNON 

0000 s OB 

X 

RMDTMP 

6538 


RUBACK 

0005 


RUBOIJT 

007F 

SAVESP 

62bL 


SCNEED 

0004 


SCRWIN 

67 CD 


SFREE 

0000: 

SLEN 

0095'“ 


SOPRSP 

653D 


SOPRSZ 

653F 


STACK 

6UC8 

STAKTO 

6-000 


STRSIZ 

6800 


SUBSTR 

00 A3 

I 

SUBSTU 

6534 

TAB 

0009 


TAPBIJF 

64B3 


T APCON 

64 AF 


TAPPRO 

64B1 

TBFEND 

6-533 


TEMPHD 

60CA 


TEMPS 

6-2E5 


TMPARG 

67 AD 


X 


X 
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TOP 

6818 

TTYBEG 

6261 


TTYEWD 

62E1 


TTYINT 

62E3 

TTYPTR 

62E1 

TXTWIN 

67E2 


IJARTFL 

649C 


USREND 

65F1 

V3PTR 

6573 

VDCHAR 

649E 


VDNLF 

65CF 


VIPL.H 

6545 

VOICED 

6563 

WRMODE 

65EE 


ZGIM2 

0001 


ZGREND 

68 ID 

$AADR 

0010 

$ADDRF 

0007 


iUADDRI 

0005 


$ADDR8 

0009 

$ANY 

001A 

$ANYNA 

FFFC 


$ANYVA 

FFFE 


$ARGPT 

0011 

$BGPTR 

OOOF 

$BNDL 

0007 


UCALLE 

OOOD 


fCMDAD 

0018 

$CPLBL 

002A 

$CSBLO 

0028 


$DATAP 

0007 


$DOLDE 

0001 

$DOLOO 

0002 

$DVAL 

0000 


$END 

001 c 


$FADR 

OOOE 

$FLAGS 

0002 

$FORBL 

0024 


♦FORPT 

OOOB 


$FVAL 

0006 

$GOSUB 

001A 

*IADR 

oooc 


TINPBU 

0018 


f INPF’T 

0016 

$1VAL 

0004 

$KEYBL 

0026 


$LENGT 

0001 


$LINPT 

0005 

$LOCPT 

0009 

$MIBBL 

0022 


$MIBEN 

00 IB 


&NAMAD 

OOOA 

$NAME 

000A 

$NASCI 

0009 


$NDEL 

0080 


$NLINK 

0003 

*NULL 

0002 

$NVALU 

0005 


UiREPEA 

00 IE 


$RVSTU 

0013 

$SAME 

0020 

$S ASCI 

OOOA 


$SLEN 

0006 


$STRAD 

0008 

♦STRPT 

0003 

$TAF 

0000 


$TYPE 

0000 


$USE 

0005 

.BLNK. 

0000"03 X 

.DATA. 

0000* 

X 

.PROG. 

0102" 

X 
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EF 


.INSERT As MAC.ASM 


© 

.INSERT AsS.ASM 
©„REMARK / 

© 

© 

© • 

© 

© 

© 

© 


■a-#**#** 

# 

* 

« 


© 

© 

© 

© 

© 

© 


a- 

# 

**##*■«•*■ 

"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 


© 


© ZGRASS V2.OOOOOOOO 

©BY JAY FENTON, NOLA DONATO, AND TOM DEFANTI 
© (C) 1978 

© 

©/ 

.INSERT AsNCUEQU.ASM 
.INSERT AsZRAM.ASM 
.LINK 

.IDENT EF 
. PREL 
; + 

5 INTERNALS 


3 ARC COSINE FUNCTION 
3 ARC SINE FUNCTION 
5 ARC TANGENT FUNCTION 
3 CONVERT FLOATING TO STRING 
5 COSINE FUNCTION 
3 EXPONENT FUNCTION 
3 FORMAT ASCII OUTPUT 
3 PARSE FLOATING NUMBER 
3 INTEGER CONVERT 
3 LOG NATURAL FUNCTION 
3 LOG BASE 10 FUNCTION 
.INTERN PI 5 RETURN VALUE OF PI 

.INTERN POWER 3 POWER FUNCTION 

.INTERN SINE 3 SINE FUNCTION 

.INTERN SORT 5 SQUARE ROOT FUNCTION 

.INTERN TANGENT 3 TANGENT FUNCTION 

" 4 * . 

3 EXTERNALS 

a ^ 

3 

.EXTERN ALSTS 3 ALLOCATE STRING 

.EXTERN ARG 3 PARSE ARGUMENTS 

. EXTERN CARTYP 3 FIND CHARACTER TYPE 

.EXTERN CVDSTR 3 CONVERT DOUBLE TO STRING 

.EXTERN CVFSTR 5 CONVERT FRACTION TO STRING 


.INTERN ARCCOS 
.INTERN ARCSIN 
.INTERN ARCTAN 
.INTERN CNVFS 
.INTERN COSINE 
.INTERN EXP 
.INTERN FORMAT 
.INTERN GETNUM 
„INTERN INT 
.INTERN LN 
-INTERN LOG 
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EF ~ 


.EXTERN DONCU 
.EXTERN ENDSTR 
.EXTERN ERRPGM 
.EXTERN FPUSH 
.EXTERN GETMSB 
.EXTERN GETOPND 
.EXTERN INCUIY 
.EXTERN IPOP 
.EXTERN IPSHO 
.EXTERN IPUSH 
.EXTERN TYNCU 
.EXTERN LF'AD 
.EXTERN NCUIY 
.EXTERN PLAY 
.EXTERN POPOPND 
.EXTERN PSHFIO 
„EXTERN PSHOPND 
.EXTERN PUTOPND 
.EXTERN RETNONE 
.EXTERN SUBSTR 

$ 4 * 4 * 4 **+ 


5 DO NCU OPERATION 
3 CLEAN UP STRING 
j ERROR TRAP 
5 PUSH FLT NUMBER 
; GET MOST SIGNIF BYTE 
5 GET OPERAND 
5POINT TO NEXT ARG 
? POP INT FROM NCU STACK 
5 PUSH 0 ONTO NCU STACK 
5 PUSH INT ONTO NCU STACK 
? GET FROM IY TO NCU 
5 FOR LOG LINKAGE 
5 GET FROM NCU TO IY 
;FOR POWER LINK 
5 POP OPERAND 
? PUSH FLOATING 10 
5 PUSH OPERAND 
? PUT OPERAND 
5 RETURN 

5 FOR SORT LINK 


7 

5 CNVFS 

5 CONVERT FLOATING POINT OPERAND TO STRING OPERAND 

a 

7 : 

5 NEEDS s 

? IY—> FLOATING POINT OPERAND 
» 

7 " 

? RETURNSs 

. XY—> STRING OPERAND 


5 CALLS5 

? ALSTS - ALLOCATE STRING 
; ENDSTR - CLEAN UP AFTER STRING 
; GETOPND 7 PUTOPND ~ FETCH, PUT OPERAND 
? GETMSB - GET MOST SIGNIFICANT BYTE 
? INTPT - CONVERT INTEGER PART 
1 FRACPT ~ CONVERT FRACTIONAL PART 




? DONCU - DO 

v - : 

NCU OPERATION 


0000" 


tl I1|M ■ 

7 

CNVFSs 




0000 •" 

C5 


PUSH 

B 

?SAVE BC 

0001 

3E01 


MV I 

A,($SASCII+13 

) /16 

0003 

CD 0000s04 


CALL 

ALSTS 

5 ALLOCATE STRING 

0006" 

E5 


PUSH 

H 

5 SAVE PTR 

0007-' 

EB 


XCHG 


5HL->WHERE TO PUT DATA 

0008" 

CD 0000 s OE 


CALL 

GETOPND 

“GET NUM ON NCU 

OOOB-' 

CD 0041-' 


CALL 

MSGN 

5 DO THE SIGN 

OOOE 

CD 004F-' 


CALL 

NORMLIZ 

3 NORMALIZE THE NUMBER 



; BC = 

BASE 10 

EXPONENT 



? IF THE BASE 10 EXPONENT IS BETWEEN -3 AND 7 WE DO NOT 
S USE SCIENTIFIC NOTATION 



TDL Z80 

CP/M DISK AS 

SEMBLER VERSION 2 

.21 

PAGE 3 

EF 





CNVFS - 

CONVERT FLOA 

TING TO STRING 



0011" 

79 

..CA s MOV 

A, C 

3 A=BASE 10 EXP 

0012"' 

FE07 

CPI 

6+1 

; EXPC7? NORMAL 

0014"' 

3810 

JRC 

. . C2 

5 EXPC7? NORMAL 

0016"' 

FEFD 

CPI 

-3 

3 EXPC-3? SCI NO 

0018"' 

300C 

.JRNC 

« «C2 


001A •" 

CD OOFE"' 

..CIS CALL 

SC I NO 

1 SCIENTIFIC NOTATION 



7 « 

3 EXIT, CLEAN 

UP AFTER STRING AND PUSH IT 

00 ID"' 


"f 

..EX 5 CLR 

M 

?TRAILING NULLC 

LL 00ID"' 

3600 

+ „IFN M 

-A?, ?E MVI 

M ,021c 



XRA All 



00 IF"' 

D1 

POP 

D 

“HL—>TOP OF STRING 

0020 < 

Cl 

POP 

B 

?RESTORE BC 

0021"' 

3E08 

MV I 

A,TSTRADR 

5 TYPE STRING 

0023 -* 

C3 0000s1 

A JMP 

PUTOPMD 

3 SAVE STRING 



jt 

3 C = BASE 10 

EXPONENT 




3 IF 0, .NNNNNN 




3 IF <0, .OONNNNNN 




5 ELSE, NN. 

n . 

mm 


0026" 

CD 002B"' 

7 

„.C2 5 CALL 

NUM IT 

3 NORMAL NOTATION 

0029" 

18F2 

JMPR 

„ . EX 

5AND EXIT 



5 ++++ 





V 

3 MUM IT 





5 CONVERTS A 

FLOATING POINT 

NUMBER TO AN ASCII INTEGER 



5 AND FRACTINAL PART 




5 NEEDS5 





! BC = BASE 

10 EXPONENT 




; HL -> WHERE TO PUT FIRST 

DIGIT 



3 NCU STACK 

HAS NORMALIZED 

NUMBER 



3 RETURNSs 





HL ~> AFT 

ER LAST DIGIT 




5 BC DESTROYED 




7 

3 CALLSs 





3 FLTOUT - 

GET 6 DIGITS 




3 FRAC, FRACPT - FRACTION 

PART 



5 INTPT - INTEGER PART 

It 


002B *** 

E5 

NUMIT 3 PUSH 

H 

3 SAVE OUR PTR 

002C *** 

21 64A3 

LX I 

H,NUMBUF 

3HL->NUMBER BUFFER 

002 F' 


PUSH 

H 


0030" 

CD 00E7"' 

t-ALL 

FLTOUT 

5 GET 7 DIGITS 

0033*'* 

D1 

pop 

D 

3 DE~>NUMBER BUF 

0034 '* 

El 

■ POP . 

H 

5 HL~>STRING 



TST 

c 

5 CHECK BASE 10 EXPII 

0035*'* 

79 

+.IFN C 

-A, L MOV 

A, C I 

0036 *'* 

B7 

+ ORA 

A3 


0037 *** 

CC 00C6 •" 

cz 

FRAC 

3.NNNN 
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CNVFS - CONVERT FLOATING TO STRING 


003A" 

FC OOBB-- 

CM 

FRACPT 

5 . OONNN 

003D •" 

C4 00B2 “’ 

CNZ 

INTPT 

5NMN.NNN 

0040 ■- 

C9 

RET 




5 HHH-+ 


, 

; MSGN 

; TAKES CARE OF THE SIGN OF THE MANTISSA OF A 
5 FLOATING POINT NUMBER. IF IT IS POSITIVE, NOTHING 
5 IS DONE. IF IT IS NEGATIVE, A IS PUT IN THE 

$ STRING AND THE SIGN OF THE FLOATING NUMBER ON 
5 THE TOP OF THE NCU STACK IS CHANGED 

tt 

? 

? NEEDSa 

5 HL -> WHERE TO PUT SIGN IN STRING 
5 NCU -> FLOATING POINT NUMBER 

M 

? 

? RETURNSs 

5 NCU -> POSITIVE FLOATING POINT NUMBER 
5 HL -> AFTER SIGN (IF ANY) 

7 

5 CALLSa 

5 GETMSB -• GET EXPONENT 
5 DONCU - DO NCU OPERATION 


0041” 

CD 0000 a OD 

MSGNa CALL 

GETMSB 

5 GET EXPONENT 

0044 

E680 


AN I 

N.MSGN 

? CHECK MANTISSA SIGN 

0046 •" 

C8 


RZ 


?POSITIVE? LEAVE IT 

0047**’ 

362D 


MV I 

M, 

•; SIGN IN STRING 

0049 

**.”**~« 


I NX 

H 

5 AFTER THE SIGN 

004A-' 

3E15 


MV I 

A,N.CHSF 

? GET ABSOLUTE VALUE 

0040 **' 

C3 0000 a09 


•JMP 

DONCU 




II 

V 






7 

» 

7 

NORMLIZ, NORMLZ 




tt 

3 

NORMALIZES A 

FLOATING POINT 

NUMBER WITH RESPECT TO 



7 

BASE 10 





*.» 

» 

7 

NEEDS s. 





n 

* 

NCU—>NUMBER .NNNNNN * 10-H-w-M 



7 

BC = BASE 

10 EXPONENT (NORMLZ ONLY) 



7 

u 

7 

RETURNSa 





» 

7 

NCU—> BASE 

10 MANTISSA .NNNNNN 



7 

7 

BC = BASE 

10 EXPONENT + M 


004F *** 


7 “'"**** 

NORMLIZa 



00.4F **’ 

01 0000 


LX I 

B, 0 

? BASE 10 EXP = 0 

0052 •" 

3E17 


MV I 

A,N.PTOF 

? IF IS 0, 

0054 ** 

CD 0000 « 09 


CALL 

DONCU 

5 RETURN 




1ST 

AC 


0057**’ 

B7 

+ 

ORA 

All 


0058 “* 

C8 


RZ 
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:NVFS - 

CONVERT FLOATING TO STRING 



0059 ■' 

CD 0000sOD 


CALL 

GETMSB 

5 GET EXPONENT 

005C *' 

FE40 


CPI 

N.ESGN 

SEXPONENT NEGATIVE? 

005E- 

3804 


JRC 

..Nl 

5 NO? LEAVE IT BE 

0060; 

FE56 


CPI 

#N. MSGN?<—42 

?IS TOO SMALL? 

0062 *’ 

3814 


JRC 

NORMLZ 

5 DONT ROUND THEN 

0064* 

C6EB 

„ . N1 s 

ADI 

-21 

;SHIFT TO THE RIGHT 

0066*’ 

E67F 


AN I 

#N.MSGN 

5KILL THE SIGN 

0068- 

57 


MOV 

D, A 


0069- 

1EEO 


MV I 

E ■> OEOH 

5.111 2#*—21 

006B- 

D5 


PUSH 

D 


006C- 

- CD 0000s11 


CALL 

IPSHO 


006F- 

D1 


POP 

D 


0070 •' 

CD 0000s12 


CALL 

I PUSH 


0073- 

3E10 


MV I 

A,N.FADD 

5 ROUND IT UP 

0075 

CD 0000s09 

N -A. 

CALL 

DONCU 




7 » 

5 NORMLZ - ACTUAL NORMALIZATION 



5 THE BASE 2 

EXPONENT IS CHECKED 



5 IF 

IT IS 

0 - WE EXIT 




; IF 

IT IS 

> 0 - WE DIVIDE 

BY 10 CHECK AGAIN 

0078- 

CD 0000SOD 

7 

NORMLZs 

CALL 

GETMSB 

5 GET EXPONENT 




TST 

A 

5 IS IT 0?C 

007B- 

B7 


ORA 

All 


007C - 

C8 


RZ 


5 RETURN IF SO 

007D- 

E640 


AN I 

N.ESGN 

5 IS IT NEGATIVE? 

007F - 

2826 

« A 

JRZ 

. „ ND 

5 DI VIDE BY 10 



7 ' 

3 BASE 

2 EXPONENT IS < 0. IF 

THE NUMBER WE HAVE IS 



3 LARGER THAN 

! OR EQUAL TO .1, 

WE CAN EXIT „ OTHERWI SI 



S WE MU 

ST MULTIPLY BY 10 AND 

CHECK AGAIN 

0081- 

3E17 

7 

. . MMs 

MV I 

A,N.PTOF 

5 SAVE NUMBER 

0083- 

CD 0000s09 


CALL 

DONCU 


0086 - 

E5 


PUSH 

H 

5 SUBTRACT .1 

0087- 

21 035D •" 


LX I 

Hi PT1 

3 HL~>.1 

008A - 

CD 0000 s OC 


CALL 

FPUSH 

5 ON NCU STACK 

008D- 

El 


POP 

H 


003E- 

3E11 


MV I 

AiN.FSUB 

5 SUBTRACT TO 

0090 - 

CD 0000s09 


CALL 

DONCU 

3 COMPARE THEM 




TST 

A 

" bAV E. LL- * bL 

0093 - 

B7 

4- 

ORA 

AI 


0094- 

F5 


PUSH 

PSW 


0095- 

3E18 


MVI 

A,N.POPF 

5 KILL RESULT 

0097 - 

CD 0000s09 


CALL 

DONCU 


009'A - 

FI 


POP 

PSW 

5 GET CC-'S 

009B- 

FO' 


RP 


3 RETURN IF >= .1 

009C- 

CD 0000s18 


CALL 

PSHF10 

3 ELSE PUSH 10. 

009F- 

OB 


DGX 

B 

3 DEC BASE 10 EXP 

OOAO •" 

3E12 


MVI 

AiN.FMUL 

3 AND MULTIPLY 

00A2-' 

CD 0000s09 


CALL 

DONCU 


00A5- 

18D A 


JMPR 

. . NM 

?CHECK AGAIN 


3 + 

5 BASE 2 EXPONENT > 0, WE DIVIDE BY 10 AND 
3 CHECK AGAIN 
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:NVFS - 

CONVERT FLOATING TO S 

TRING 



00 A 7 

«t ^ 

7 

CD 0000slS ..NDs 

CALL 

PSHF10 

5 PUSH 10. 

OOAA * 

3E13 

MV I 

A,N„FDIV 

“AND DIVIDE 

00 AC - " 

CD 0000s09 

CALL 

DONCU 


OOAF ” 

03 

I NX 

B 

5 BUMP BASE 10 

00 BO" 

18C6 

■JMPR 

NORMLZ 



" 


; INTPT 

5 PUTS THE INTEGER PART OF A FLOATING POINT NUMBER 
! INTO THE GIVEN STRING 

ttt 

7 

S NEEDS s 

5 DE -> FIRST DIGIT OF NUMBER IN BUFFER 
5 HL -> NEXT BYTE IN STRING TO STORE INTO 

5 A = BASE 10 EXPONENT (IF OO, RETURN) 

<1 

7 

5 RETURNSs 

5 HL -> AFTER INTEGER PART (IF ANY) 

5 DE -> AFTER LAST INTEGER DIGIT 

? B DESTROYED 


00B2”' 

47 

INTPT5 MOV 

Bi A 

;B=BASE 10 EXP 

00B3 *'* 

1A 

..115 LDAX 

D 

;A=NEXT DIGIT 

00B4" 

13 

I NX 

D 


00B5’" 

77 

MOV 

Mj A 

“COPY DIGIT 

00B6 

Z"P' 

I NX 

H 


00B7”' 

1OFA 

D.JNZ 

. . 11 

5 UNTIL ALL DONE 

00B9 

180B 

JMPR 

FRAC 

“DO FSACTION 


? -M-++ 


5 FRACPT 

? COPIES THE REST OF THE FRACUTONAL DIGITS FROM 

? BUFFER INTO STRING. DECIMAL POINT ADDED, TRAILING 

5 ZEROS SUPPRESSED 
» 

7 • 

5 NEEDSs 

5 DE ~> FIRST FRACTIONAL DIGIT 

5 HL -> WHERE TO PUT DIGITS IN STRING 

at 

7 

? RETURNSs 

§ DE --> AFTER LAST DIGIT 
5 HL -> NEXT BYTE IN STRING 


QQBB'' 

3&2E 

FRACPT5 MVI 

M, •" 

? PUT IN DEC PT 

OOBD" 


I NX 

H 


OOBE’" 

3630 

..FI! MVI 

Mi ’"O’" 

5 LEADING ZEROS 

OOCO’" 

23 

I NX 

H . 


OOC1 

3C 

I NR 

A 

BUMP EXPONENT 

00C2 

2 OF A 

JRNZ 

. .FI 

5 UNTIL 0 

00C4 

1803 

JMPR 

U X ■ 

FRACX 

5 REST OF DIGITS 



T 

S FRAC - ENTRY 

POINT WHEN 

LEADING ZEROS NOT DES 
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err* 
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21 

PAGE 

fcr 

CNVFS - 

CONVERT FLOATING TO STRING 



00C6 

» 

362E FRAC* 

MV I 

Mi " „ •" 

5 DECIMAL POINT 

oocs 

40 

I NX 

H 


00C9 

1A FRACXs 

LDAX 

D 

5 GET A DIGIT 

OOCA 

13 

I NX 

D 


OOCB 

77 

MOV 

M, A 

5 COPY IT 

oocc 

23 

I NX 

H 




TST 

A 

S WAS IT NULL?C 

OOCD' 

B7 + 

ORA 

A3 


OOCE- 

20F9 

JRNZ 

FRACX 

5 NO? CONTINUE 

OODO- 

2B 

DCX 

H 

* AT NULL 

OOD1 • 

3E30 

MV I 

A, "0" 


00D3- 

OR CTO« 

XmD w m r x.. *» 

DCX 

H 

5 DEC PTR 

00D4* 

BE 

CMP 

M 

5 TRAILING 0? 

00D5 • 

28FC 

•JRZ 

. . F2 

“KILL IT 

00D7- 

7E 

MOV 

A? M 

S A=L.AST DIGIT 

OOD 8* 

FE2E 

CPI 

n 

? WAS THE DP? 

ODD A' 

2008 

-JRNZ 

» a l*~ O 

5 NO? EX IT 

00 DC * 

2B 

DCX 

H 

3 HL->BEFORE DP 



TST 

M 

3IS NULL?[ 

OODD • 

7E +„IFN M 


-A? I MOV 

A, M 3 

CODE- 

B7 + 

ORA 

A3 


QODF' 

2003 

JRNZ 

. . F3 

5 NO? EX IT 

QQE1 ' 

40 

I NX 

H 

5 POINT AT DP 

00E2: 

3630 

MV I 

M i *" 0 *" 

3MAKE IT 0 

00E4 •' 

23 .. .F3s 

I NX 

H 

5HL.~X.AST 0 OR NULL 



CLR 

A 

!SET Z BITC 

GOES' 

AF + „IFN A 


-A, r MVI 

A , 03 E 


XRA 

a:i:i 



00E6" 

C9 

RET 









; FLTOUT 




5 CONVERT NORMALIZED FLOATING 

POINT NUMBER TO A 


5 DIGIT 

STRING 

(NO DECIMAL POINT, ASSUMED TO BE 


5 AT THE 

If 

FAR L 

EFT) 



5 NEEDS* 





HL - 

> BUFF 

ER TO STORE!AT 

LEAST 6 DIGITS ?< NULL 


5 NCU~ 

n 

> BASE 

10 NORMALIZED 

FLOATING NUMBER 


•s 

? RETURN 

S.s 




S HL - 

> AFTER LAST DIGIT 



5 DESTROYS B 

7 

, NCU 


00E7- 

ii 11Mt ntM „ w . ' 

7 

0605 FLTOUTs 

MV I 

r B, 5 

5 FIELD WIDTH 

00E9- 

EI5 

PUSH 

H 

3 PUSH 10**6 

OOEA ' 

21 0361" 

LX I 

H,TEN6 

SON NCU STACK 

OOED •' 

CD 0000*OC 

CALL 

FPUSH 


OOFO- 

El 

POP 

H 


00F1" 

3E12 

MV I 

A , N » FMUL 

S GET 7 DIGITS 

00F3" 

CD 0000 * 09 

CALL 

DONCU 


OOF 3 - 

3E1E 

MV I 

A,N.FIXD 

S CONVERT TO INT 

00F8*' 

CD 0000*09 

L* A1— L. 

DONCU 
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CNVFS - CONVERT FLOATING TO STRING 


OOFBC3 OOOOs 08 JMP CVFSTR 5 PUT IN STRING 

« ~j—}»- -|— 

H 

3* 

3 scI no 

3 PUTS A NORMALIZED FLOATING NUMBER INTO SCIENTIFIC 
5 NOUATION IN A STRING .NNNNNNNENNN 

o 

* 

5 NEEDSs 

3 HL -> AFTER SIGN IN STRING 
3 NCU—> FLOATING MANTISSA OF NUMBER 
3 BC = BASE 10 EXPONENT 

ts 

5 RETURNSs 




5 HL 

-> AFTER 

EXPONENT DIGITS 




5 BC, 

u 

•} 

DE, NCU 

DESTROYED 


OOFE ■“ 

C5 

* "*** 

SCIMO« 

PUSH 

B 

3 SAVE BASE 10 EXP 

■ OOFF •“ 

362E 


MV I 

M, -'. - 

3 DECIMAL POINT 

0101-' 

23 


I NX 

H 


0102-' 

CD 00E7- 


CALL 

FLTOUT 

3 GET 7 DIGITS 

0105-' 

3645 


MV I 

M, - E -' 

3 EXPONENT 

0107" 



I NX 

H 


0108"' 

D1 


POP 

D 

3 DE = BASE 10 EXP 

0109-' 

CD OOOOs12 


CALL 

I PUSH 

5 DOUBLE IT 




TST 

D 

3 CHECK HI BYTEE 

01QC -' 

7A 

+ .MFN D 


-A, C MOV 

A, D 3 

010D-' 

B7 


ORA 

A3 


010E-' 

11 0000 


LX I 

D, U 

3 ASSUME POS 

0111-' 

2803 


■JRZ 

. . S1 

3 OK 

0113- 

11 FFFF 


LX I 

D, -1 

3 NEGATIVE 

0116-' 

CD OOOOs12 

u « S1« 

CALL 

I PUSH 

5 PUSH HI BYTE 

011 9' 

C3 OOOOs07 

? -h-h-iH- 

•JMP 

CVDSTR 

5 INTO STRING 



■j 

3 GETNUM 


,v ■ ' " 



3 PARSE 

S A FLOATING POINT MUMBE 

R FROM A STRING 



l' 

5 NEEDS 

s 





3 HL 

-> FIRST 

DIGIT OF STRING 



3 RETURNSs 
3 FAILS 
3 C BIT SET 

3 FAILS IF NO DIGITS AT ALL 

5 SUCCEEDS 

5 HL -> AFTER LAST DIGIT, EXPONENT, ETC. 

5 TOP OF NCU STACK HAS GLOATING NUMBER 

5 A = TFVAL (TYPE FLOAT) 

3 DESTROYS DE, BC 

B 

? 

3 CALLSs 

3 CARTYP - CHECK CHARACTER TYPE 
3 DONCU - DO!NCU OPERATION 
3 PSHFlOi- PUSH FLOATING 10 
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GETINT, GETI - GET INUEGER FROM STRING 
GETEXP - PARSE EXPONEOT 


011C" 

7E 

GETNUMs 

MOV 

A, M 

5 CHECK FOR DECIMAL 

011 D " 

FE2E 


CPI 

*’ „ '* 

?POINT FIRST 

01 IF" 

2805 


JRZ 

. - G 1 

5 OK TO START 

0121 " 

CD 0000s06 


CALL 

CARTYP 

5 CHECK 1ST CHAR 

0124" 

3065 

If 

JRNC 

FAIL 

5 FAIL IF NO DIGIT 



7 “ 

7 PARSE 

INTEGER 

PART. IF A 

DECIMAL POINT IS FOUND, 



3 AN EXPONENT I 

S COMPUTED 

IN B„ THIS EXPONENT IS 



5 DECREMENTED!EVERY TIME A 

DIGIT AFTER THE DECIMAL 



5 POINT 

II • 

IS FOUND 


0126" 

CD 0159" 

7 

„ G 1 s 

CALL 

GET I NT 

■PARSE INTEGER PART 

0129" 

0600 


MV I 

B,0 

;EXPONENT IS 0 

012B " 

7E 


MOV 

A, M 

?CHECK FOR DECIMAL 

012C" 

FE2E 


CPI 

** „ ** 

5 POINT 

012E" 

2004 • 


■JRNZ 

. . G2 

5ISNT ONE, TOO BAD 

0130" 

23 


I NX 

H 

5HL~>AFTER OP 

0131" 

CD 0176" 

tt X 

CALL 

GET I 

!PARSE FRACTION 



j .-r 

? IF AN 

EXPONENT IS FOUND, 

IT IS PARSED AND 



? ADDED 

n .... 

TO THE 

CURRENT EXPONENT IN B 

0134" 

CD 018D" 

9 

« .. « 

CALL 

GETEXP 

5 PARSE EXPONENT 

0137" 

3E1C 


MV I 

A,N.FLTD 

;CONVERT TO FLT 

0139" 

CD 0000s09 


CALL 

DON.CU 



; HERE B = BASE 10 EXPONENT AND THE STACK HAS 
? THE FLOATING NUMBER PARSED WITH THE DECIMAL 
; POINT TO THE FAR RIGHT.. WE MULTIPLY/DIVIDE 
; THE NUMBER OF TIMES INDICATED BY THE EXPONENT 
5 TO GET THE TRUE VALUE 


013C" 


>. «« G3 « 

JC;J 

B 

5 EXPONENT 0? L 

013C" 

78 

+«IFM B 


~A, C MOV 

A, B 3 

013D" 

B7 

4 * 

ORA 

A3 


013E" 

2816 


JRZ 

..EX 

5YES? CAN EXIT 

0140" 

FA 014E" 


JM 

. . G5 

5 NEGATIVE? DIVIDE 

0143" 

CD 0000s18 


CALL 

PSHF10 

?MULTIPLY BY 10.0 

0146" 

3E12 


MV I. 

AVN.FMUL 


0148" 

05 


DCR 

B 

?DEC EXPONENT 

0149" 

CD 0000s09 

« „ G4 « 

CALL 

DONCU 

5 DO IT 

014C" 

1 SEE 


JMPR 

u . IS o 

5 GO AGAIN 

014E" 

CD 0000s IS 

„ „G5s 

CALL 

PSHF10 

5 DIVIDE BY 10.0 

0151 " 

3F ;| 3 


MV I 

A , N . FDIV 


0153" 

04 


I NR 

B 

? BUMP EXPONENT 

0154" 

18F3 


JMPR 

. n G 4 


0156" 

3E06 

» . EXs 

MV I 

A,$FVAL 

?RETURN TYPE FLT 

0158" 

C9 


RET 




GETINT, GETI 
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5 INTERNAL ROUTINES TO PARSE INTEGER AND MAINTAIN 
5 A 32 BIT NUMBER ON NCU STACK„ THE EXPONENT IN 
; B IS DECREMENTED EVERY TIME A DIGIT IS PARSED 

'i 

5 NEEDSs 

? HL -> DIGIT 

5 NCU STACK HAS CURRENT NUMBER FOR GETI, GETINT 
? WILL PUSH A 32 BIT 0 

II 

* ' 

5 RETURNS: 

5 FAIL: 

5 C BIT SET 

5 FAILS IF NO DIGIT FOUND 

5 SUCCEEDS 
5 HL -> NON-DIGIT 

S NCU STACK HAS 32 BIT INTEGER PARSED 


5 CALLS 

5 CARTYP - CHECHK CHARACTER TYPE 
? DONCU - DO NCU OPERATION 
5 IPSHO - PUSH INTEGER 0 
5 IPUSH - PUSH INTEGER 


0159' 

CD 0000s 11 

GETINTs 

CALL 

IPSHO 

5 PUSH 32 BIT ZERO 

015C-- 

CD 0000s 11 


CALL 

IPSHO 


015F-' 

CD 0000S06 


CALL 

CARTYP 

5 CHECK DIGIT 

0162" 

3027 


JRNC 

FAIL 

;fail RETURN 

0164 •" 

7E 

Gls 

MOV 

A 7 M 

5 A=DIGIT 

0165" 

.i £.0 


INX 

H 

”,HL->AFTER DIGIT 

0166"' 

D630 


SUI 

"O'' 

5 GET IN BINARY 




CLR 

D 

5 PUT IT IN DEC 

0168"' 

1600 

+„IFN D 


-A, C MVI 

D ,03 c 



XRA 

ai:i 



016A-" 

5F 


MOV 

E,A 


016B"' 

CD 0000 s12 


CALL 

I PUSH 

? PUSH ON NCU STACK 

016E-' 

CD OOOOs1 1 


CALL 

IPSHO 

;PAD HI ORDER 

0171 •" 

3E2C 


MVI 

A, N. DADD 

? ADD TO RESULT 

0173 •" 

CD OOOOs 09 


CALL 

DONCU 


0176" 

CD OOOOs06 

GET Is 

CALL 

CARTYP 

5 CHECK NEXT DIGIT 

0179-' 

DO 


RNC 


?RETURN IF NOT DIG 

017A" 

11 OOOA 


LX 1 

D, 10 

?PUSH INTEGER 10 

017D" 

CD OOOOS12 


CALL 

I PUSH 

“ON NCU STACK 

0180" 

CD OOOOs11 


CALL 

IPSHO 


0183"' 

3E2E 


MVI 

A 7 N„DMUL 

SMULTIPLY OUR NUM 

0185 ■" 

CD OOOOs09 


CALL 

DONCU 

“ BY 10 

0188 "' 

05 


OCR 

B 

5 DEC EXPONENT 

0189"' 

18D9 


■JMPR 

GI 

;CONTINUE 

018B 

37 

FAILS 

STC 


5 SET CARRY 

018C •" 

C9 


RET 




5 ++++ 


S GETEXP 

? PARSE EXPONENT IN STRING AND RETURN IN B 
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5 NEEDSs 

3 HL -> POSSIBLE EXPONENT IN STRING 
5 B = OLD EXPONENT OR 0 

u 

5 RETURNSs 

? HL -> AFTER EXPONENT (IF ANY) 

5 B = OLD EXPONENT PLUS NEW EXPONENT 


2 

? CALLSs 




3 GETINT - PARSE INTEGER 




5 DONCU -- DO 

NCU OPERATION 



5 I POP POP 

tl 

V 

INTEGER 


018D •' 

FE45 

V “**“* 

GETEXPs CPI 


?IS EXPONENT? 

018F •" 

CO 

RNZ 


5 NO? SKIP IT 

01? O'" 

C5 

PUSH 

B 

? SAVE OLD EXP 

0191 

23 

I NX 

H 

? HL->AFTER E 

0192" 

7E 

MOV 

A,M 

?A = NEXT THING AFTER 

0193“ 

FE2D 

CPI 


5 CHECK SIGN 

0195'" 

F5 

PUSH 

PSW 

5 SAVE CCS 

0196'" 

2001 

.JRNZ 

a » G 1 

5 NO SIGN? 

0198"' 

23 

I NX 

H 

?HL->AFTER SIGN 

0199-* 

CD 0159"' 

. . G1s CALL 

GETINT 

? GET EXPONENT 

0i9C" 

CD 0000s 10 

CALL 

I POP 

?POP HI PART 

019F 

CD 0000 s10 

CALL 

IPOP 

5DE=EXP0NENT 

01 A 2 "' 

FI 

POP 

PSW 

? WAS THERE A SIGN? 

01 A3"' 

7B 

MOV 

A,E 

“A=EXPONENT PARSED 

01 A4"' 

2002 

JRNZ 

» «02 

5 NO SIGN 

01 A 6 "' 

ED44 

MEG 


’NEGATE IT 

01 A 8 -" 

Cl 

u m U2*» PuF* 

B 

? B=OI_D EXPONENT 

01A9"' 

80 

ADD 

B 

5 ADD TO NEW ONE 

01AA"' 

47 

MOV 

B, A 

5 SAVE IN B 

01AB"' 

C9 

RET 


? AND RETURN 



” ++++ 





s POWER 

u 

7 





u rtlu ,,,,, <M „ 

M. CMD i: POWER, . „ POWX, 0 

7 PLAY ?„„PARG 7 „» POW 3 C 

01 AC "' 

18 

+POWERS „BYTE 

SCMDADR 


01 AD" 

03 

+ „BYTE 

(. u POWX-POWER)/16+1 

01AE "' 

00 

+ „BYTE 

0 


01AF"' 

0000«16 

+ „WORD 

PLAY 


01 Bl"' 

01BC ’ 

+ „WORD 

„ „ POW 


01B3 "' 

01BF *'* 

+ «WORD 

PARG 


01B5"' 

504F57455200+ „ASCIZ 

/POWER/ 




+ 3 



01BB-" 

00 

»BYTE 

0 


01BC"' 

CD 0000s05 

..ROWS CALL 

ARG 


OiBF"' 

060600 

..PARGs „BYTE 

*FVAL,*FVAL, 

$TAF 

01C2"' 

CD 0000513 

CALL 

IYNCU 

.5 GET 1ST ARG 

01C5-" 

CD 0000 s OF 

CALL 

IMC5IY 

5 POINT AT 2ND ONE 

01C8 " 

CD 0000s13 

CALL 

I YNCU 

“AND 2ND ARG 

01CB"' 

3E0B 

MVI 

AiN.PWR 

?POWER FUNCTION 





ti m h 
i—no 
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GATING FUNCTIONS 

01 CD-' 18IB *JMPR FRET 5 AND RETURN 

01CF..POWXs 

. ++++ 

n 

3 

; SIN 






m.cmdi: 

SINE,SINX,0,SORT, 

FNARG, . „ SIN13 11 

01 CF " 

18 


+8INES 

.BYTE 

$CMDADR 


01 DO-" 

03 


+ 

. BYTE 

(SINX—SINE)/16+1 


01D1 

00 


+ 

.BYTE 

0 


0-102' 

0277" 


+ 

. WORD 

SORT 


01D4-" 

01DE" 


+ 

. WORD 

„ . SIN1 


01D6" 

01E4"' 


+ 

. WORD 

FNARG 


01D8" 

53494E45 

;oo 

+ 

+ 3 

.ASCIZ 

/SINE/ 


01DD-" 

00 


.BYTE 

0 


01DE" 

01DE-" 

3E02 


.„SINIs 

MVI 

A, N. SIN 

S'SINE 

01EO 

F5 


FFUNs 

PUSH 

PSW 

5 SAVE OPERATION 

DIET •" 

CD 0000s 

05 


CALL 

ARG 

5 GET ARGUMENT 

01E4-" 

0600 


FNARG s 

. BYTE 

$FVAL,$TAF 


01 ES¬ 

CD 0000: 

13 


CALL 

IYNCU 

? ONTO NCU FROM IY 

DI E9"' 

FI 



POP 

PSW 

? A = FUNCTION 

01EA-" 

CD 0000s 

09 

FRETs 

UALL 

DONCU 

? RESULT ON NCU 

DIED"' 

3E06 



MVI 

A,$FVAL 

5 FLOATING VALUE 

01EF •" 

01F2 

C3 0000 s 

IB 

SINXs 

•JMP 

RETNONE 

.return 




; cos 


M „ CMD i: COS INE, . COSX, 0, AFIX EC3, FNARG, „ . COST 3 il 


01F2-" 

18 

4-COSINEs 

. BYTE 

$CMDADR 


01F3-" 

02 

4. 

. BYTE 

(».COSX-COS 

TIME)/16+1 

01F 4 *'* 

00 

-1" 

. BYTE 

0 


01F5"' 

630C 

+ 

„ WORD 

AFIXCC3C("C 

"-101Q)*16+FSTINT 3 

01F7 •" 

0203 *“ 

4. 

„ WORD 

„„COST 


0TF9-" 

01E4-" 

•*!•* 

. WORD 

FNARG 


01FB*- 

434F5 

3494E45+ 

.ASCIZ 

/COSINE/ 




+ 3 




0202 

00 


. BYTE 

0 


0203**’ 

3E03 

..COS!: 

MVI 

A, N.COS 5 

COSINE 

0205 x 

18D9 


JMPR 

FFUN 


0207 •* 


..COSX s 





5 4~-h-i"Hh 


? TAN 


M. CMD E TANGENT, . . T ANX, 0, AF IX E T3, FNARG, . . TAN 3 II 
0207< 18 +TANGENTS .BYTE fCMDADR 

020802 + . BYTE (. . TANX-TANGENT) /16+1 

0209 00 + . BYTE 0 
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020A-' 

641C 

+ .WORD AFIXCTKC'T 

" — 10IQ)#16+FSTINT 3 

020C •' 

0219"' 

+ .WORD .„TAN 


020E •" 

01E4 

+ .WORD FNARG 


0210" 

54414E4745 

4E+ .ASCIZ /TANGENT/ 




+ 1 


0218"' 

00 

u E*YTE 0 


0219- 

3E04 

..TANS MVI A ? N.TAN 

3 TANGENT 

021B 

1803 . 

•JMPR FFUN 


02 ID" 


. .TANXs 








7 

3 I NT 

7 




5 

M.CMDTINT,..INTX, 

0, AFIXm, . . INTA, . . INTK 

02 ID" 

18 

+INTS .BYTE $CMDADR 


021E •" 

02 

+ .BYTE (..INTX-INT 

) /16+1 

02 IF'- 

00 

+ .BYTE 0 


0220 •- 

636C 

+ .WORD AFIXCIJC("I 

" ~ 101Q) • 16+FST I NT 3 

U 2 !. /m z. 

022B 

+ .WORD ..INT 


0224" 

022E**’ 

+ .WORD ..INTA 


0226"' 

494E5400 

+ .ASCII /INT/ 




*+* .3 


022A" 

00 

.BYTE 0 


0.22B *“ 

CD 0000s05 

..INTs CALL ARG 


022E •" 

0400 

. . INTAs .BYTE $IVAL,$TAF 

0230*" 

CD 0000SOE 

CALL GETOPND 

3 GET OPERAND 

0288 * 

C3 0000sIB 

•JMP RETNONE 

5 RETURN INTEGER 

0236'" 


. .INTXs 




« 4 . + + + 

H 




7 

3 AS IN 
“ 




tt ^ ^ 

3 

M „ CMD I! ARCS IN 1 . .AD 

SX,0,AFIXIA 3,FNARG,..ASIN 3 

0236"' 

18 

+ARCSINs .BYTE $CMDADR 


0237"' 

02 

+ . BYTE (. . ACSX-ARC: 

SIN)/16+1 

0238 "' 

00 

+ . BYTE 0 


0239"' 

62EC 

+ .WORD AFIXUAJC("A 

"-101Q)#16+FSTINTI 

023B 

0247" 

+ .WORD ..ASIN 


023D 

01 E4 

+ uWORD FNARG 


023F"' 

41524353494E+ .ASCII /ARCSIN/ 




+1 


0246 '" 

00 

.BYTE 0 


0247 •" 

3E05 

..ASINs MVI A,N.ASIN 

3 ARC SINE 

0249 "' 

1895 

.JMPR FFUN 


024B-' 


. .ACSXs 




5 ^**4*4* 4' 

it 

5 ACOS 




u 

' 7 

» ... 

M. CMDCARCCOS* . . AC 

CX, 0 7 ARCS'IN 7 FNARG 7 . . ACOS IC 

024B" 

18 

+ARCCOSs .BYTE *CMDADR 


024C'" 

02 

+ „BYTE (..ACCX-ARCCOS)/16+1 
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024D •" 

00 

“I- 

.BYTE 0 

024E ■' 

0236-' 


.WORD ARCSIN 

0250 ' 

025C 

+ 

.WORD ..ACOS 

0252' 

01E4"' 

4 . 

.WORD FNARG 

0254- 

4 % 5243434F 

“i O 4" 

+1 

.ASCI2 /ARCCOS/ 

025B-’ 

00 


.BYTE 0 

02.5C' 

3E06 

.-ACOS: 

MVI A,N.ACOS 5 ARC COSINE 

025.E **’ 
0261 *' 

03 01EO -' 

. „ ACCXs 

n 

7 

5 ATAN 

7 

a .. . 

7 

.JMP FFUN 

M. CMDCARCTAN, . « ATNX, 0, ARCCOS, FNARG, . „ ATANIII 

0261 

18 

+ARCTANS 

„ BYTE $CMDADR 

0262 •" 

02 

4* 

. BYTE (..ATNX-ARCTAN)/16+1 

0263 *’* 

00 

4 . 

.BYTE 0 

0264 •' 

024B' - 

4* 

. WORD ARCCOS 

0266- 

0272" 

4 

.WORD ..ATAN 

0268 •- 

01 E4" 

+ 

.WORD FNARG 

026A" 

41524354414E+ 

+ 3 

.ASCI2 /ARCTAN/ 

0271- 

00 


.BYTE 0 

0272' 

3E07 

. „ AT AIMS 

MYI A,N.ATAN ? ARC TANGENT 

0274-' 

0277"' 

03 01 EO"' 

„.ATNXs 

« 4 . 44 . 4 . 

7 

? SQRT 

7 

? * 

JMP FFUN 

M. CMDCSQRT, . „ SQRX, 0, SUBSTR, FNARG, . . SQRT3 II 

0277" 

IS 

+SQRT s 

.BYTE &CMDADR 

0278•' 

02 

4 

.BYTE (..SQRX-SORT)/16+1 

0279 •" 

00 

4 

. BYTE 0 

027A" 

0000 s 1 C 

4 

.WORD SUBSTR 

0270 •" 

0286-' 

4 

. WORD .. SQRT 

027E-' 

01 E4 •“ 

4 

.WORD FNARG 

0280"' 

5351525400 

+3 

.ASCI2 /SQRT/ 

0285-' 

00 


.BYTE 0 

0286"' 

3E01 

„ .SORTS 

MVI A,N.SQRT ?SQUARE ROOT 

0288"' 

028B-" 

03 01 E 0 -" 

h M SQNX « 

« 4.444 

5 

5 LOG 

7 

? “*“~*** 

JMP FFUN 

M. CMDi:LOG , . . LOGX , 0, LPAD, FNARG, „ . LOG3 II 

028B 

18 

+LGGS 

.BYTE $CMDADR 

0280-' 

02 

4 

. BYTE ( .. LOGX—LOG)/16+1 

028D •" 

00 

4 

.BYTE 0 
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028E*" 

0000s14 

4 

.WORD LPAD 

0290" 

0299 

4* 

.WORD ..LOG 

0292" 

01E4 

4* 

.WORD FNARG 

0294 " 

4C4F4700 

+ 

+ 3 

.ASCII /LOG/ 

0298" 

00 


.BYTE 0 

0299 

3E08 

„„LOGs 

MVI A, N.LOG 5 BASE 10 LOG 

029B-" 

029E" 

C3 01EO •" 

„ LOGX s 

• ++++ 

a 

3 

S LN 

V 

a ____ 

? 

JMP FFUN 

M. CMDI"LN, . . LNX, 0, LOG, FNARG, „ L.N3 € 

029E 

IS 

4*LM s 

„BYTE *CMDADR 

029F 

02 

-1- 

. BYTE ( . LN X -LN) / 16+1 

02 AO" 

00 

4- 

. BYTE 0 

02A1 '■ 

028B- 

4 

,WORD LOG 

02A3- - 

02 A B 

4- 

„ WORD . . LN 

02 A5 •' 

01E4" 

4- 

„WORD FNARG 

02 A 7’" 

4C4E00 

+ 

+ 3 

.ASCIZ /LN/ 

02 A A 

00 


.BYTE 0 

02AB-" 

3E09 

„ .LN s 

MVI A,N.LN 5 BASE E LOG 

02 AD” 
02B0 

C3 01 EO •" 

. * LNX s 

* -I” 4* 4 4* 

a 

3 

; exp 

<t 

3 

« 

JMP FFUN 

M„CMDCEXP, „ .EXPX,0,AFIX CE3,FNARG,. „ EXP3C 

02B0 

IS 

4-EXP “ 

„ BYTE $CMDADR 

02B1 

02 

4* 

.BYTE ( . .EXPX-EXP)/16+1 

02B2-" 

00 

4- 

BYTE 0 

02B3 •" 

632C 

4 

„ WORD AF1X !I E 3 C ( " E " -101Q) * 16+FSTI NT 3 

02B5 

02BE-' 

4* 

„ WORD .. EXP 

02B7-' 

01E4" 


.WORD FNARG 

02B9-- 

45585000 

4* 

+ 3 

. ASCIZ /EXP/ 

02BD-- 

00 


. BYTE 0 

02BE-" 

3E0A 

. .EXPs 

MVI A, N»EXP 5 RAISE TO E POWER 

02C0 •- 

C3 01E0'- 


JMP FFUN 

02C3- 


. .expX* 

; ++++ 

It 

V 

; pi 

If - 

W ..... , IJ „ 

V 

M . CMD CPI, „ .PIX,0, AFIXTP3,0, . .PI3II 

02C3 

18 

4*R I a 

.BYTE fCMDADR 

02C4" 

02 

4 

.BYTE (. .PIX-PI)716+1 

02C5 •' 

00 

4 * 

.BYTE 0 

02C6 •' 

63DC 

4 

.WORD AFIX C P 3 C("P"-101Q)*16+FSTINT 3 
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02C8*’* 

02D0 •' 

+ 

.WORD . 

.PI 

02CA *’* 

OOOO 

4* 

.WORD C 


02CC“ 

504900 

4 . 

.ASCIZ 

/PI/ 

02GF ** 

00 


.BYTE 

0 

02D0**’ 

3E1A 

. .Pi: 

MVI 

A,N.PUPI 

02D2-* 

02D5 

C3 01EA" 

n . P I X ■ 

JMP 

FRET 


» +-1-4-4. 


5 FORMAT 

? FORMATS A FLOATING POINT NUMBER INTO AN INTEGER AND FR¬ 
ACTIONAL 

5 PART (ASCII STRING) WITH N DIGITS AFTER THE DECIMAL PO 
INT 

IS 

T ■ 

5 NEEDSs 

5 FLOATING NUMBER TO FORMAT 

5 INTEGER GIVING NUMBER OF DIGITS AFTER DECIMAL POINT 
5 (MAY BE BETWEEN 0 AND 6) 

n 

; RETURNS! 

5 STRING WITH FORMATTED NUMBER 

tt 

5 CALLS! 

5 ARC - FETCH ARGUMENTS 
? AL.STS - ALLOCATE STRING 

? GETOPND - FETCH OPERAND 

! INC5IY - BUMP IY TO NEXT ARG 
5 MSGN - GET SIGN 
; NORMLIZ - NORMALIZ NUMBER 
5 NUMIT ~ CONVERT TO ASCII 


M.. CMD i: FORMAT, . „ FMT X, 0, AFIX C F1, . . FMARG, . . FMT 1L 


02D5 •" 

18 

+FORMAT: 

.BYTE 

$CMDADR 

02D6-" 

09 

+ 

.BYTE 

(..FMTX-FORMAT)/16+1 

02D7 

00 

4* 

. BYTE 

0 

02D8" 

633C 

4* 

„ WORD 

AF IX I! F 1Z ( "F " 101 Q ) * 16+FSTI NT 1 

02DA-' 

02E5-' 

4* 

. WORD 

..FMT 

02DC 

02E8 

4* 

. WORD 

..FMARG 

02DE •" 

464F524D415 

4+ 

.ASCIZ 

/FORMAT/ 



4*3 



02E5 ■” 

CD 0000!05 

» .FMT: 

CALL 

ARG 

02E8-' 

060400 

« «FMAROs 

.BYTE 

*FVAL-.*'IVAL,-0 

02EB 

E5 


PUSH 

H 

02EC 

3E01 


MVI 

A, ($ SASCII + 19 )/ 16 


CD 0000:04 


CALL 

ALSTS > ALLOCATE STRING 

02F1 x 

E5 


PUSH 

H * SAVE THE PTR 

02F2 x 

EB 


XCHG 

. 5 TO THE TOP 

02F3 * 

CD 0000sOE 


CALL 

GETOPND ? GET FLOATING VALUE 

02F6 *“ 

CD 0000:OF 

n 

CALL 

INC5IY ? POINT TO NEXT ARG 



7 

5 GET # 

OF DIG 

ITS AFTER DP IN DE 


? IT MUST BE POSITIVE AND LESS THAN 6 
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FLOATING FUNCTIONS 


02F9 *’ 

CD 0000sOE 


CALL 

GETOPND 

5 GET # DIGITS AFTER 

02FC"' 

7B 


MOV 

A,E 

? A = # DIGITS AFTER 




TST 

A 

? MUST BE > OC 

02FD'" 

B7 

4- 

ORA 

A3 


02FE •" 

FA 0305-' 


JM 

„ . ERR 

5 ERROR 

0301 

FE07 


CPI 

6+1 

5 MUST BE < 6 

0303 **' 

3804 


JRC 

. . IMN 

3 OR ERROR 

0305 •" 


. ERR 

s ERROR 

ER.DPC 


0305**' 

CD 0000 s OB 


CALL ERRPGM 


0303 **' 

37 

4 

.BYTE ER.DP 




+3 






"5 + 






? PRINT INITIAL 

SIGN AND NORMALIZE NUMBER 

0309 •" 

CD 0041"' 

7 

. . NN s 

CALL 

MSGN 

5 GET THE SIGN 

030C:*’ 

D5 


PUSH 

D 

5 SAVE DIGIT COUNT 

030D" 

CD 004F" 


CALL 

NORMLIZ 

5 NORMALIZE NUMBER 



7 r 

s IF 

THE NUMBER 

IS GREATER THAN 10**10, IT IS 



; TOO 

BIG TO DI 

SPLAY. IF IT 

IS GREATER THAN 10**6, 



5 TRAILING ZERO 

3 ARE ADDED 


031 O'- 

79 

7 

MOV 

A 7 L* 

5A=EXP0NENT 

0311- 

FE07 


CPI 

6+1 

50 C EXP < 6 ? 

0313‘- 

381C 


JRC 

„ .Ml 

5 YES? 

0315**' 

FEOB 


CPI 

10+1 

36 < EXP < 10? 

0317-' 



JRC 

. „ N 

5 YES? 

0319-' 

FEFO 


CPI 

-16 

5-16 < EXP < 10 

03 IB-' 

3014 


JRNC 

. «>N 1 

5 YES? 




ERROR 

ER.FMT 

3 ELSE ERRORC 

031D" 

CD OOOOsOB 

4- 

CALL ERRPGM 


0320 "' 

•*"* [Z* 

■4 

.BYTE ER.FMT 




+:\ 




0321-' 

DE05 

. .Ns 

SB I 

5 

5 SUBTRACT 5 

0323-' 

4F 


MOV 

C, A 

3 NEW EXPONENT 

0324" 

CD 00E7" 


CALL 

FLTOUT 


0327-' 

3630 

. .NWS 

MVI 

M, - 0-' 

5 TRAILING OS 

0329-' 



I NX 

H 


032A "' 

OD 


DCR 

c 

3 UNTIL COUNTUP 

032B-" 

20FA 


JRNZ 

„ . NW 


032D- 

362E 


MVI 

M. -' . •" 

5 PUT DP IN 

032F ■" 

180C 


JMPR 

. . N5 




7 r 

5 CONVERT FLOATING NUMBER TO 

ASCII AND GET THE 



? NUMBER OF DIG 

St : 

ITS REQUESTED 

AFTER THE DECIMAL POINT 

0331 "' 

E5 

7 

. . N 1 s 

PUSH 

H 

3 SAVE PTR 

0332"' 

CD 002B "' 


CALL 

NUMIT 

5 GET ASCII NUMBER 

0335 •" 

El 


POP 

H 

3 HL ~> FIRST DIGIT 



7 4- 

; WE 

SEARCH THE 

DIGIT STRING 

FOR THE DECIMAL POINT 

0336 - 

3E2E 

7 “** 

MVI 

A 7 .,** H ** 

3 DP TO COMPARE 

0338 -' 

BE 

. . N2 s 

CMP 

M 

5 IS IT POINT? 
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FLOATING FUNCTIONS 


0339"' 

si *-.« 


I NX 

H 


?POINT AFTER 

033A"' 

20FC 


•JRNZ 

. . N2 


5 SCAN FOR IT 

033C 

2B 

« ~L 

DCX 

H 


,“HL 

-> AT DP 



7 * 

; DECIMAL POINT 

FOUND, 

WE COUNT 

OUT 

THE DIGITS 



? UNTIL 

DECIMAL 

POINT 

COUNTER EXHAUS 

TED OR END 



5 OF STRING IS REACHED 






; E = NUMBER OF 

DIGITS 

ALLOWED 

AFTER 

DP 

033D-" 

D1 

7 ' 

. .N5s 

POP 

D 







TST 

E 


; IF 

0, EXITC 

Q33E 

7B 

+ .IFN E 


-A, C 

MOV 

A, E 

3 

(") “;p y 

B7 

+ 

ORA 

A3 




0340"' 

2812 


•JRZ 

. . OUT 




0342"' 

'”•'8 


I NX 

H 


5 HL 

-•> AFTER DP 

0343" 

ID 

. . M3 5 

DCR 

E 


5 ONE 

LESS DIGIT 

0344 "' 

FA 0354"' 


JM 

. . OUT 


5 ALL 

GONE? EXIT 




TST 

M 


?FOUND THE NULL? C 

0347 •" 

'7E 

+.IFN M 


-A, C 

MOV 

A, M 

3 

0348"' 

B7 

+ 

ORA 

A3 




0349"' 

23 


I NX 

H 


5 HL 

-> AT NEXT CHAR 

034A"' 

20F7 


JRNZ 

. . M3 


5 NO? 

CONTINUE 


; + 


5 END OF STRING REACHED? NUMBER MUST BE PADDED WITH 
? TRAILING ZEROS UNTIL THE DECIMAL POINT COUNTER 




; IN E 

BECOMES 

MINUS 



0340"' 

2B 

7 

DCX 

H 

5 HL -> AT 

NULL 

034D" 

3630 

« . N4 s 

MV I 

M, "'0 "' 

?TRAILING 

0 

034F"' 

23 


I NX 

H 



0350" 

ID 


DCR 

E 

? ONE LESS 

DIGIT 

035:1."' 

F2 034D"' 


JP 

. . N4 




S + 

” EXIT POINT 

? PUT IN TRAILING NULL, POP OFF STRING ADDRS & EXIT 


0354"' 

« mr , . 

D1 ..OUT's 

POP 

D 

SDE -> TOP OF STRING 

0355"' 

3600 +.IFN M 

CLR 

M 

-A, C MVI 

? ENDING NULLC 

M ,031 

0357"' 

XRA 

El 

A3 3 

POP 

H 

5 RESTORE OTHERS 

UJDo 

3E08 

MV I 

A,$STRADR 

;RETURN TYPE STRING 

035A "' 

G3 0000s IB 

JMP 

RETNONE ^ 

5 RETURN 

035D"' 
035D "' 

. . FMTX s 

CCCC 7DCC 1s 

„ WORD 

OCCCCH,07DCCH 

? „ 1 

0361 " v 

2400 14F4 N6s 

. WORD 

02400H,014F4H 

“10**6 


.END 
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+++++ SYMBOL FABLE +++++ 


A AS M 

005F 


ALSTS 

0000 s 04 

X 

ARCCOS 

024B -' 

I 

ARCSIN 

0236- 

I 

ARGTAN 

0261 " 

I 

ARG 

0000s05 

X 

ARGSTK 

60CC 


BACKGR 

65CC 


BLANK 

0020 


BOTRAM 

6000 


BOTTOM 

64A9 


CARTYP 

0000 s 06 

X 

CHARSL 

65DD 


CLEARS 

60CA 


CNTRL 

oooc 


CNTRLC 

65CD 


CNTRLO 

65D9 


CNTRLU 

0015 


CNTRLZ 

65E4 


CNVFS 

0000 x 

I 

COSINE 

01F2 ** 

I 

CPLARE 

611C 


CPLSIZ 

0140 


CR 

OOOD 


CSBLOK 

66SD 


USFLAG 

6260 


CURCX 

6814 


CURCY 

6816 


CURREN 

64A5 


CVDSTR 

0000 s 07 

X 

CVFSTR 

0000 s 08 

X 

C. CO 

0011 


C.C1 

0012 


C.CX 

OOOB 


C.CY 

OOOD 


C.DP 

0013 


G. ST 

0002 


C. X 

0003 


C. XF 

GOOF 


C. XS 

0007 


C« Y 

0005 


C. YF 

0010 


C.YS 

0009 


DDTON 

65CE 


DEVBL 

6589 


DEVCLO 

6579 


DEVCL1 

657B 


DEVCL2 

657D 


DEVCL3 

657F 


DEVCL4 

6581 


DEVCL5 

6583 


DEVCL6 

6585 


DEVCL7 

6587 


DEVFB 

65CB 


DEVHCB 

658F 


DEVMO 

658B 


DEVNM 

65B7 


DEVNT 

658D 


DEVTNA 

65BB 


DEVTNB 

65BF 


DEVTNC 

65C3 


DEWA 

65BD 


DEWAR 

6579 


DEWB 

65C1 


DEVVBL 

6591 


DEWC 

65C5 


DEWD 

65C9 


DEVVN 

65B9 


DEWS 

65f:7 


DEVXCD 

65 B3 


DEVYCD 

65B5 


DOLPLH 

62E8 


DOLF'PT 

62EA 


DONCU 

0000s 09 

X 

DUMBST 

6577 


EDBCNT 

64AD 


EDCCNT 

64A7 


EDLONG 

6812 


EDMODE 

681C 


EDNAME 

64 A1 


EDNCX 

6.80C 


EDNCY 

680E 


EDNEWS 

64A5 


EDOCX 

6808 


EDOCY 

680A 


EDPN 

6806 


EDPO 

6804 


EDPTRC 

64 AB 


EDPTRL 

64 A 9 


EDSTR 

681A 


ENDSTR 

0000s OA 

X 

ERABIT 

0002 


ERRPGM 

0000 s OB 

X 

ER.ARA 

002F 


ER.ARG 

0034 


ER.ASN 

0015 


ER.BOX 

001A 


ER.CHN 

0002 


ER.CMD 

00 IF 


ER.CNV 

0016 


ER.COR 

00 IB 


ER.CTL 

0036 


ER.DEL 

0026 


ER.DIM 

0030 


ER.DIV 

0018 


ER „ DP 

0037 


ER.DSK 

0019 


ER.EDT 

0035 


ER.FMT 

0038 


ER.FNF 

001C 


ER.FOR 

0028 


ER.IMP 

0003 


ER.LAB 

0025 


ER.MAC 

0022 


ER.NAE 

002D 


ER.NAM 

0029 


ER.NEG 

003A 


ER„NOT 

0023 


ER.NUL 

0039 


ER.NUM 

002B 


ER.NXT 

00 ID 


ER.OFL 

0017 


ER.OPN 

0014 


ER.OVE 

00 IE 


ER.PAR 

002A 


ER.REN 

002G 


ER.RET 

0024 


ER.SEP 

0021 


ER.SNP 

0031 


ER.SPC 

002E 


ER.STK 

0004 


ER. SW 

0032 


ER.TER 

0020 


ER.UFL 

0033 


ER.UNF 

0027 


EXP 

02 BO 

I 

EXTDEL 

002E 


E.IIVAL 

0002 


E.LVAL 

0001 


E.SIZ 

0005 


E.TYP 

0000 


E. VAL 

0001 


FAIL 

018B-' 


FCNTH 

65D2 


FONT I 

65D3 


FCNTJ 

65D4 


FCNTK 

65D5 


FCNTL 

65D6 


FCNTV 

65E0 


FCMTY 

65E3 


FFUN 

01E0" 


FIRST 

64A3 


FLAGS 

6,5GB 


FLTOUT 

00E7 


FNARG 

01E4- 


FOREGR 

65D0 


FORMAT 

02D5 

I 

FPUSH 

0000 s oc 

X 

FRAG 

00C6"' 


FRACPT 

OOBB-' 


FRACX 

00C9 


FRAGSI 

0400 


FREELS 

65E5 


FRET 

01E A -' 


FSTDOL 

648C 


FSTINT 

62EC 


FWDPTR 

65E7 


GETEXP 

01SD •" 


GET I 

0176" 


GETINT 

0159'' 


GETMSB 

0000sOD 

X 

GETNUM 

011C"' 

I 

GETOPN 

0000s OE 

X 

GI 

0164-' 


HG: AREA 

6593 


INC5IY 

0000 s OF 

X 

INCRO 

65E9 


I NT 

02 ID-' 

I 

INTPT 

00B2-' 


I POP 

0000s10 

X 

IPSHO 

0000 s 11. 

X 

I PUSH 

0000s12 

X 

lYNCU 

0000s13 

X 

JUNK 

6542 


KBLOCK 

65F1 


KEYFLG 

67FF 


KEYPTK 

6*533 


KEYTRK 

67F7 


L.F 

OOOA 


LISTON 

65E2 


LN 

029E-' 

I 

LOG 

028B -' 

I 

LPAD 

0000s14 

X 

MACSTU 

6>536, 


MACTOP 

625E 


MAXFRG 

0040 


MNMX 

65EB 


MSGN 

0041" 


M.POPS 

0078 


NBLKB 

0000 


NBLKM 

0001 


NCUCOM 

0029 


NCUDAT 

0028 


NCUIY 

0000515 

X 

NEWBOT 

6810 


ML 

OOOA 


N0RML1 

004F •" 


NORMLZ 

0078-' 


NSADDR 

6802 


NUMBUF 

64A3 


NUMIT 

002B 


N. A'COS 

0006 


N. ARG 

0003 


N.ASIN 

0005 


N.ATAN 

0007 


N.CHSD 

0034 


M„CHSF 

0015 


N.CHSS 

0074 


N. COS 

0003 


N.DADD 

002C 
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EF 

4 . 4 — 1 . 4 . 4 . yVMBGl._ 1 ABLE 4*4 , 4 **hh- 


IM.DDIV 002F 
N.DSUB 002D 
N.EXP OOOA 
N.FIXS 00IF 

M. . FSUB 0011 

N. NOP 0000 
N.PTOD 0037 
N.PUR OOOB 
N»SIM 0002 

N. SSUB 006D 
N„XCHF 0019 
OLDCUR 649F 
OPRL 0014 
OUTOFF 62E7 

O. SUB 0004 
PIXVAL 65ED 
POPOPN 0000s17 X 
PSHOPN 0000!19 X 
RAMSTR 6900 
RUBACK 0005 
SCNEED 0004 
SOPRSP 653D 
STAKTO 6000 

TAB 0009 
TAPPRO 64B1 
TEM 6 0361" 
TTYEtMD 62E1 
UARTFL 649C 
VDNLF 65CF 
Z.GTM2 0001 
$ADDRI 0005 
♦ANYVA FFFE 
♦CALLE OOOD 
♦DATAP 0007 
♦END 001C 
♦FORPT OOOB 
$INPBU 0018 
♦LENGT 0001 
♦MIBEN 00IB 
♦NDEL 0080 
♦REPEA 00 IE 
♦SL.EN 0006 
♦TYPE 0000 
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N.DIV 

0004 

N«EMAX 

0017 

N.FADD 

0010 

N.FLTD 

001 c 

N„LN 

0009 

N..OFLO 

0001 

N.PTOF 

0017 

N.SADD 

006C 

N.SMUL 

006E 

N» TAN 

0004 

N.XCHS 

0079 

OLDKEY 

649D 

OPRSP 

655B 

O'. CHAR 

0000 

O.TYP 

0003 

PLAY 

0000s16 X 

POWER 

01AC' I 

PT1 

035D •' 

RANSHT 

655F 

RUBOUT 

007F 

SCRWIN 

67CD 

SOPRSZ 

A53F 

STRSIZ 

6800 

TANGEN 

0207' I 

TBFEND 

6533 

TMPARG 

67 AD 

TTYINT 

62E3 

USREND 

65F1 

VIPLH 

6545 

ZGREND 

68 ID 

♦ADDRS 

0009 

♦ARGPT 

0011 

♦CMDAD 

0018 

♦DOLDE 

0001 

♦FADR 

OOOE 

♦FVAL 

0006 

♦INPPT 

0016 

♦LINPT 

0005 

♦NAMAD 

OOOA 

♦NLINK 

0003 

♦RVSTU 

0013 

♦STRAD 

0008 


N.DMUL 002E 
N.EMIN FF69 
N.FDIV 0013 
N.FLTS 00ID 
N»LOG 0008 
N.POPD 0038 
N.PTOS 0077 
N.SDIV 006F 
N.SMUU 0076 
N, IJFLO 0002 

N. ZERO 0020 
OLDXY 65EF 
OPRSTK 6547 

O. PREC 0002 
PCNT 655E 
POINTE 64A7 
PRINTR 6540 
PUTOPN 0000!1A X 
RETNON 0000!IB X 
SAVESP 625C 
SINE 01CF" I 
SORT 0277' I 
SUBSTR 0000!1C X 
TAPBUF 6483 
TEMPHD 60CA 

TOP 6818 
TTYPTR 62E1 
V3PTR 6573 
VOICED 6563 
♦AADR 0010 
♦ANY 001A 
♦BGPTR OOOF 
♦CPLBL 002A 
♦DOLOO 0002 
♦FLAGS 0002 
♦GOSUB 001A 
♦IVAL 0004 
♦LOCPT 0009 
♦NAME OOOA 
♦NULL 0002 
♦SAME 0020 
♦STRPT 0003 
u BLNK. 0000!03 X 
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N„DMUU 

0036 

N.ESGN 

0040 

N.FIXD 

00 IE 

N.FMUL 

0012 

N.MSGN 

0080 

N.POPF 

0018 

N.PUPI 

001 A 

N.SIGN 

0040 

N.SORT 

0001 

N.XCHD 

0039 

OLDCHR 

64A0 

GNEBUF 

6729 

OPRSZ 

6.55D 

G.SIZ 

0006 

PI 

02C3 ’- 

PONOFF 

65DA 

PSHF10 

0000 s 

RAMEND 

7FFF 

RMDTMP 

6538 

SC I NO 

OOFE" 

SI NX 

01 F 2 " 

STACK 

60C8 

SUBSTU 

65-34 

TAPCQN 

64AF 

TEMPS 

62E5 

TTYBEG 

62a 1 

TXTWIN 

67E2 

VDCHAR 

649E 

WRMODE 

65EE 

♦ADDRF 

0007 

♦ANYNA 

FFFC 

♦BNDL 

0007 

♦CSBLO 

0028 

♦DVAL 

0000 

♦FORBL 

0024 

♦ I ADR 

OOOC 

♦KEYBL 

0026 

♦MIBBL 

0022 

♦NASCI 

0009 

♦NVALU 

0005 

♦SASCI 

OOOA 

♦TAF 

0000 

.DATA. 

0000 * 


♦USE 0005 


PROG„ 0365- X 


3 ERRORS WERE DETECTED ***•«••«• 




REMARK / 


* 

* •«• # 

# 

*• 

if- 

a###### 

"WHEN YOU CARE ENOUGH TO PROGRAM 
THE VERY BEST" 

2GRASS V2.OOOOOOOO 

BY .JAY FENTON, NOLA DONATO, AND TOM DEFANTI 

(C) 1978 

/ 

„XL1ST 

5 THIS MODULE CONTAINS ALL THE SYSTEM EQUATES 
,“ EQUATES PREFACED BY $ SIGNS ARE GENERALLY OFFSETS 

5MACRO INVOCATION BLOCK (MIB) EQUATESs 


$TYPE=0 

$LENGTH=1 


;TYPE BYTE 

5 LENGTH BYTE (FILLED BY ALLOC) 



